home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t5.d64 / list freezer.c (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  738b  |  23 lines
  1. 10 GOSUB 90
  2. 20 L=232:H=PEEK(56)-1:Q=PEEK(775):IFQ<167THEN80
  3. 30 POKE 55,L:POKE51,L:POKE56,H:POKE52,H:POKE774,L:POKE775,H
  4. 40 FOR X=L+H*256TOX+21:READ D:POKEX,D:NEXT
  5. 50 POKE X,Q
  6. 60 DATA 72,152,72,32,159,255,169,1,44,141,2,208,246
  7. 70 DATA 169,0,133,198,104,168,104,76,26
  8. 80 NEW
  9. 90 POKE53281,0:POKE53280,2:PRINT"[147]"
  10. 100 PRINT"THIS SHORT ROUTINE ALLOWS YOU TO PAUSE"
  11. 110 PRINT"OR FREEZE A LISTING OF THE PROGRAM ON"
  12. 120 PRINT"THE SCREEN.
  13. 130 [153]:[153]:[153]:[153]"TO USE LIST FREEZER, LIST ANY BASIC"
  14. 140 [153]"PROGRAM AND HOLD DOWN THE SHIFT KEY."
  15. 150 [153]"THE LISTING WILL PAUSE.  TO FREEZE IT"
  16. 160 [153]"ENTIRELY WHILE FREEING YOUR HANDS,"
  17. 170 [153]"PRESS SHIFT LOCK.  YOU CAN RESTART THE"
  18. 180 [153]"LISTING AT ANY TIME BY RELEASING SHIFT"
  19. 190 [153]"OR SHIFT LOCK"
  20. 200 [153]"PRESS ANY KEY TO EXECUTEWAIT"
  21. 210 [161] A$:[139] A$[178]"" [167] 210
  22. 220 [142]
  23.